;Assembler header file for PopUp
;written by DefMod (Dec 31 2005) on Sat Dec 31 14:07:20 2005
;Jonathan Coxhead, jonathan@doves.demon.co.uk, 5 Sept 1995

        [       :LNOT: :DEF: PopUp_Hdr
        GBLS    PopUp_Hdr

        [       :LNOT: :DEF: Get_Types
        GBLS    Get_Types
        ]
        [       :LNOT: :DEF: Types_Hdr
Get_Types                       SETS    "GET oslib/Types.Hdr"
        |
Get_Types                       SETS    ""
        ]
        $Get_Types

        [       :LNOT: :DEF: Get_Toolbox
        GBLS    Get_Toolbox
        ]
        [       :LNOT: :DEF: Toolbox_Hdr
Get_Toolbox                     SETS    "GET oslib/Toolbox.Hdr"
        |
Get_Toolbox                     SETS    ""
        ]
        $Get_Toolbox

        [       :LNOT: :DEF: Get_Gadget
        GBLS    Get_Gadget
        ]
        [       :LNOT: :DEF: Gadget_Hdr
Get_Gadget                      SETS    "GET oslib/Gadget.Hdr"
        |
Get_Gadget                      SETS    ""
        ]
        $Get_Gadget

;Symbols for constants
Class_PopUp                     *       &2C0
PopUp_GenerateAboutToBeShown    *       &1
Action_PopUpAboutToBeShown      *       &8288B

;Symbols for structure offsets and sizes
                                ^       0
PopUp_Gadget_menu_name          #       Toolbox_StringReference
PopUp_Gadget                    *       @

                                ^       0
PopUp_Object                    Gadget_Object_MEMBERS
PopUp_Object_menu_name          #       Toolbox_StringReference
PopUp_Object                    *       @

PopUp_Full                      *       OS_Coord

                                ^       0
PopUp_ActionAboutToBeShown_menu #       Toolbox_O
PopUp_ActionAboutToBeShown      *       @

                                ^       0
PopUp_ActionAboutToBeShownBlock Toolbox_ActionHeader_MEMBERS
PopUp_ActionAboutToBeShownBlock_menu #       Toolbox_O
PopUp_ActionAboutToBeShownBlock *       @


;Symbols for SWI's and SWI reason codes
PopUp_SetMenu                   *       &2C0
   ;Entry
   ;  R0 = flags (Bits)
   ;  R1 = window (Toolbox_O)
   ;  R2 = &2C0
   ;  R3 = popup (Toolbox_C)
   ;  R4 = menu (Toolbox_O)

PopUp_GetMenu                   *       &2C1
   ;Entry
   ;  R0 = flags (Bits)
   ;  R1 = window (Toolbox_O)
   ;  R2 = &2C1
   ;  R3 = popup (Toolbox_C)
   ;Exit
   ;  R0 = menu (Toolbox_O)

        ]
        END
